home *** CD-ROM | disk | FTP | other *** search
/ Bandai Visual CD-ROM Previews 3 / Bandai Visual CD-ROM Previews 3.iso / LARTHUR'S LEGEND / item / 00039_Script_39 < prev    next >
Text File  |  1995-02-06  |  891b  |  48 lines
  1. on startmovie
  2.   puppetsprite 1 , true
  3.   global itemNum , countNum
  4.   set countNum = 1
  5.   set the castNum of sprite 1 = 2
  6.   put "剣" into field "name"
  7.   updatestage
  8. end
  9.  
  10.  
  11. -----------------
  12. on itemGsetD
  13.   global iiemkind , countNum , itemMax, kind
  14.   put count (itemkind) into itemMax
  15.   if itemMax > countNum  then
  16.     set countNum = countNum + 1
  17.   else
  18.     set countNum = 1
  19.   end if
  20.   set kind = getat (itemkind , countNum)
  21.   set the castNum of sprite 1 = cast kind
  22.   put kind into field "name"
  23.   updatestage
  24. end
  25.  
  26. on itemGsetU
  27.   
  28.   global itemkind , countNum , itemMax, kind
  29.   put count (itemkind) into itemMax
  30.   if 1 < countNum  then
  31.     set countNum = countNum - 1
  32.   else
  33.     set countNum = itemMax
  34.   end if
  35.   set kind = getat (itemkind , countNum)
  36.   set the castNum of sprite 1 = cast kind
  37.   put kind into field "name"
  38.   updatestage
  39. end
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.